1 Public Class frmReceipt
2
3     Private Sub frmReceipt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4         lblDateandTime.Text = Date.Now.ToShortDateString
5     End Sub
6
7     Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
8         Me.Close()
9         LstOrder.Items.Clear()
10         lblTotal.Text =
"0"
11         lblCash.Text =
"0"
12         lblChange.Text =
"0"
13     End Sub
14
15     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
16         PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
17         PrintForm1.Print()
18     End Sub
19
20 End Class


Gõ tìm kiếm nhanh...